home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / clipper / evalti.zip / TESTTIME.PRG < prev   
Text File  |  1994-01-01  |  812b  |  36 lines
  1. //
  2. //        Program: TestTime.prg
  3. //        Purpose: Tests TimeEval() for Clipper 5.2c
  4. //     Written by: Christopher A. Zielinski,  (CIS: 72723,2701)
  5. //                 (416) 767-9674  9am-5pm  EST  voice/fax
  6. //           Date: 94.01.01
  7. //
  8. //        Compile: Clipper TestTime
  9. //           Link: RTLINK FILE TestTime LIBRARY EvalTime
  10. //
  11. //                 Copyright (c) 1994  Christopher A. Zielinski
  12. //
  13.  
  14. REQUEST QOUT
  15.  
  16. // Clear screen
  17. CLS
  18.  
  19. // Display current time every second and wait for a key
  20. TimeEval( 1, "{ || QOUT( TIME() ) }" )
  21. Inkey( 0 )
  22.  
  23. // Use a shorter code block string
  24. TimeEval( 1, "{ || NIL }" )
  25.  
  26. // Divide by zero error, force call Clipper's error system!
  27. Dummy := 3/0  
  28.  
  29. // Wait for a key
  30. Inkey( 0 )    
  31.  
  32. // Return control to operating system
  33. QUIT          
  34.  
  35.  
  36.